home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1987 January & February
/
rerun-1987-01-02.d64
/
notepad 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
531b
|
14 lines
1 rem c-64 simple append
10 ml=828:q$=chr$(34)
15 for i=0 to 85:read by:poke ml+i,by:ck=ck+by:next
20 if ck <> 10054 then print"data error!":stop
25 print"syntax: sys" ml chr$(157) chr$(44) q$ "filename" q$
30 new
35 data 32,253,174,32,115,0,166,122,164,123,134,187,132,188
40 data 232,134,183,32,115,0,240,2,208,249,165,122,56,229
45 data 183,133,183,169,8,133,186,32,51,165,166,34,164,35
50 data 169,0,133,185,32,213,255,176,21,134,45,132,46,134
55 data 47,132,48,134,49,132,50,32,51,165,160,106,32,47
60 data 241,96,72,160,0,32,47,241,104,24,105,48,32,210
65 data 255,96